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Program Writing and Testing 



This bulletin discusses program writing and testing 
techniques that can assist the programmer to produce 
accurate, time-saving 1620 programs. It also presents 
a number of short programs that have proved useful 
in testing machine language programs on the ibm 1620. 
Five types of programs are given and discussed in the 
Appendix. 

Writing the Program 

Programs should be written with the realization that 
changes or modifications may be required to obtain a 
correct, working program. They should be written in 
segments, each of which performs a specific task. These 
segments should be separated by blank spaces for in- 
sertion of additional commands which subsequent test- 
ing may indicate to be necessary for a complete, work- 
ing program. 

Frequent use of subroutines is desirable, especially 
in programs containing numerical calculations. Sub- 
routines or segments can often be advantageously 
checked out separately, even before other parts of the 
program are written. In addition, programs composed 
of subroutines or segments can be more easily extended 
or modified than programs that are not so divided. Al- 
though the length of a program can sometimes be re- 
duced through the use of complex logic, such ap- 
proaches should be minimized unless core storage space 
is at a premium. Ease of modification and ready com- 
prehension are often more important than the length 
of the program. 

Linkage to the subroutine should be kept to a mini- 
mum. Items of data required for the subroutine can be 
stored consecutively so that all items can be trans- 
ferred to the subroutine by using only one storage 
address. Branch and Transmit, and Branch and Trans- 
mit Immediate (BT-27 and BTM-17) commands are 
useful for branching to subroutines, because either com- 
mand causes data transfer and branching to the sub- 



routine, and the setting up of the return to the next 
command in sequence. Otherwise, this threefold task 
requires three commands. 

A program that involves much intermediate calcula- 
tion before the final result is obtained may be inter- 
spersed with commands that cause a typeout (under 
sense switch control, if desired ) of the intermediate data 
as these data are calculated. After program testing is 
completed, these commands can be eliminated. 

Should an error occur, another useful technique is the 
inclusion of an independent routine to which a manual 
branch can be made. This routine causes certain areas 
to print out. The printout serves as a check on the con- 
tents of these areas. Printout, or Dump, routines appear 
in Appendix A. 

Certain common errors peculiar to the program for- 
mat may occasionally occur as data is composed for 
the program. Such errors can be checked for by the 
program, and provision can be made in the program for 
re-entry of a particular data record via the typewriter. 
The user is thus saved the necessity of creating a new 
input tape or card deck before continuing the program. 

Many segments or subroutines can be shortened in 
one or both of the following ways : first, by reducing the 
length of each data field to the maximum needed for 
that item, rather than regarding the field length as fixed 
at an unvarying minimum. Programmers accustomed to 
fixed word machines may otherwise fail to take ad- 
vantage of the variable length aspects of the 1620. Sec- 
ond, subroutines can be shortened by rewriting a 
routine of "X" commands as "X/N" or less commands 
and executing the reduced routine "N" times in a "tight 
loop" sequence. However, the increased execution time 
required for the tight loop operation must be weighed, 
in the light of time and space requirements, against the 
greater storage space needed by the "X command" 
routine. 

The importance and usefulness of "desk checking" 
cannot be overemphasized. Not only does this process 
include a visual check of the program listing for obvious 
mistakes, but also manual run of an item of data through 
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the program. Desk checking can eliminate a surprising 
number of potential errors in a new program. 

Data used for manual or machine check of a program 
should be carefully selected to ensure a comprehensive 
check of the numerous combinations that may exist in 
the logical flow of the program. It is usually advisable 
to begin checking with data that traces a relatively 
simple, straightforward, logical flow through the pro- 
gram. Succeeding data then can be selected to take in- 
creasingly complex paths so that each new item of data 
involves the use of a new subroutine or segment. A care- 
ful selection of data lessens the chance of a program- 
ming error being undetected during the preliminary 
data check. 

To produce a program which is easy to test and is 
readily understandable to another programmer, the 
original programmer should generate the following 
items with his program, even before it is checked out 
on the 1620: 

1. A general flow chart of the main logic of the pro- 
gram. This chart should be as machine independ- 
ent as possible so that it can be understood by a 
programmer who is unfamiliar with the 1620. 

2. Detailed flow charts of the segments and sub- 
routines that appear as blocks in the main flow 
chart. 

3. A table containing field addresses of the data ( or 
data areas ) and address locations of the segments 
and subroutines comprising the program. 

4. The sps (Symbolic Programming System) listing 
and machine language translation. 

5. Sample data input and the expected resultant 
output. 

Most of the auxiliary programs available for use as 
subroutines (i.e., floating point subroutines) or as 
program testing aids (i.e., trace routines) are lo- 
cated initially in 1620 storage locations 402 to 3999 
and 18500 to 19999. To avoid relocation of these 
prestored subroutines, storage locations 4000 to 
18499 should be used first as new programs are 
written. Routines included in this bulletin are con- 
tained within the last 500 positions of core storage, 
except for the load routine (402 to 842) and the 
general trace routine ( 15000 to 17443 ) . 

Testing the Program on the 1 620 

Machine time on the 1620 may often be at a premium. 
When 1620 time is scheduled for program testing, the 
programmer's testing plan and the execution of this plan 
should be carefully determined in advance, so that ma- 
chine time is not wasted and the next person scheduled 
is not delayed. Therefore, the programmer who has 
been assigned 1620 time should first decide how the 



program can best be tested. The following suggestions 
may be used as a guide. 

1. Make an initial dump of the program to check that 
it is stored in the correct location and to provide a 
comparison for the dump usually performed when 
the test run of the program is complete. To pro- 
duce a neat, readable listing, use a dump routine 
such as the one in Appendix B. 

2. At minimum, check the critical flags (see flags). 

3. If possible, plan to check certain key subroutines 
or segments independently of the rest of the pro- 
gram. If it appears advisable to check a particular 
program in its entirety, replace certain B or BB 
commands with Halts to assure stopping of the 
program after certain segments are executed. 
While the program is halted, check the data at that 
point, execute the branch manually, proceed to 
the next Halt and again check, etc. Areas of the 
program that do not contain tight loops can be 
checked by stepping through a single command 
at a time. 



Trace Routines 

For accurate program testing, the programmer must 
at all times be able to identify and know the location 
of the program step, segment, or routine under execu- 
tion at a particular time. If a storage location outside 
the defined program area is addressed while the pro- 
gram is under test, the programmer can with this knowl- 
edge retrace steps to the last known valid location tested 
and check to see why the program has gone awry. One 
way to secure this knowledge is to use a trace routine. 
Five types of trace routines are given in Appendix B. 
(The trace routines in Appendix B are operative on a 
1620 with indirect addressing, only if the indirect ad- 
dressing is not used in the P field of a branch com- 
mand. ) The general trace routine prints out all com- 
mands and the contents of the P and Q fields. Since the 
trace is time consuming, it should be used only when 
the programmer is at a loss to find the error in any other 
way and when a detailed check is necessary to deter- 
mine the reasons for a computational subroutine pro- 
ducing incorrect results from correct data. 

Although the general trace is invaluable in some in- 
stances, its use should be limited to short sections of the 
program and should be considered only as a last resort. 

Four other trace routines that avoid the necessity for 
stepping through the program one command at a time 
or for manually tracing by placement of Halt commands 
in the program are given in Appendix B. Essentially, 
these traces print out only those branches executed by 
the program, and are therefore much faster than the 
general trace. These "fast trace" routines give an ex- 
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cellent trace of the logical flow of the program, and also 
indicate the last branch executed when a program 
error occurs. The similarities and differences in these 
four routines are summarized in Figure 1. They are: 

1. Trace Routine for Branches in a Program 

This routine prints out all Branch, BT, and BTM com- 
mands that are executed. Although it executes all BT 
and BTM subroutines,it does not trace them, but returns 
to the trace only on the execution of a Branch Back 
(BB-42) command. 

2. Trace and Count Routine for Branches in a Program 

This routine is similar to ( 1 ) , but has the added feature 
that any branch executed more than once in sequence 
is printed out only once, together with the number of 
times it was executed. This routine is useful in any pro- 
gram that contains several "tight loop" subroutines. 

3. Flow Trace 

This routine traces BT and BTM subroutines and is 
useful when the subroutine is ended by a branch com- 
mand rather than by a BB command. 

4. Fast Trace 

This routine, while similar to (3), also includes the 
counting feature found in (2), so that it is useful for 
programs containing tight loops. In addition, it results 
in a typeout of all Write Numerically (WN-38) com- 
mands and of the output record. 



more advantageous than use of the sps processor. 

Although manual translation may appear formidable 
to the beginner at first, he soon finds that with practice 
he can translate the sps language almost as fast as he 
can write the numbers down. Manual translation of sps 
may save time for the experienced programmer who is 
working on a 1620 with paper tape input; for the be- 
ginner, both manual and sps processor translation should 
be attempted to gain practice. 

Manual translation has this notable advantage: it 
familiarizes the programmer with machine language, 
and since he must work with machine language when 
he checks out his program on the 1620, he has accom- 
plished two tasks at the same time — translation and ma- 
chine language skill. Moreover, familiarity with the ma- 
chine language equivalent usually permits him to check 
out the program more quickly. 

The very qualities that lend versatility to the 1620 
machine language may, at first, cause a programmer 
who is new to variable word length machines to regard 
machine language as intricate. This feeling usually dis- 
appears with added experience, but the programmer 
also discovers that certain 1620 programming tech- 
niques may be difficult to express in sps. The "execute 
command" feature contained in the load program ( Ap- 
pendix C ) is such a technique. 

Once the program has been tested in machine lan- 
guage form, the programmer should check the sps, 
which is an invaluable tool for relocating programs. 
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Figure 1. Uses of Various Trace Routines 

Symbolic Programming System (SPS) 

The attempt to write any 1620 program, except short 
ones, in machine language is cumbersome and confus- 
ing, even to an experienced programmer. Thus, sps 
has been used extensively in the writing of 1620 pro- 
grams. However, when paper tape input is used and 
when a program is changed many times before the final 
version is produced, manual translation of sps may be 



Loading and Timing 

After a correct, working program has been evolved and 
thoroughly tested, a continuous record tape is useful for 
loading the 1620; however, such a tape is difficult to 
obtain for an unchecked program. Except for short pro- 
grams, cutting a new tape each time corrections are to 
be made requires an excessive length of time to test a 
program. 

Since even an experienced programmer averages 
only about 50 commands an hour in testing a program 
on the 1620, he will require 20 hours of machine testing 
time for a 1,000-command program. Normally, the pro- 
grammer has only two hours on the machine at any one 
time. This period gives him more than enough informa- 
tion to make corrections and check out certain portions 
of the program. If longer intervals are attempted on the 
1620, testing efficiency often decreases. The time con- 
siderations cited are averages and depend on the type 
of program and the experience of the programmer. A 
beginner may require more time. 

If the assumption is made that the programmer modi- 
fies and corrects a 1,000-command program at least ten 
times before evolving the final version, the task of 
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recompiling the program in sps each time to include 
minor changes is obviously laborious and time-consum- 
ing. Cutting a completely new tape each time is almost 
as laborious. An efficient method of reducing time spent 
in producing tapes is to use a load program that con- 
tains a series of short records, each record containing 
one command and the address into which that com- 
mand is loaded. To correct the program, a short tape 
containing the desired corrections is cut. This tape is 
loaded, following the loading of the main program tape, 
and replaces data previously loaded from the main tape. 

A load program such as the one described is included 
in Appendix C to illustrate the general approach. Each 
programmer may prefer to write load programs more 
directly applicable to his own problem. The significant 
concept is that short data records can be loaded into 
addresses contained in the records in such a manner 
that the sequence of the records is unimportant. Such 
an approach can save considerable time and effort in 
testing a program. 

Preparing a Patch Tape 

One way to correct or alter a program in core storage is 
to incorporate all corrections into a "patch tape." The 
following patch procedure offers these advantages: 

1. Any number of consecutive digits in core storage 
can be corrected as a group. The last character 
corrected can be a record mark. 

2. The corrections can be loaded in any sequence. 

3. The patch program uses only locations 00000 to 
00091, which are normally free. No buffer area is 
required. 

4. The program does not use the arithmetic tables. 

Punching the Patch Tape 

1. To punch the patch tape, load the paper tape 
punch, and punch feed codes in the leader. Press 
Reset and insert 360002400100 380002400200. Press 
Release and Start. 

Type: 360006200300 
260005900071 
260007800071 
160007203002 
250007119999 
360007219999* 
If mar indicates 00096, press Release and sie. 
Then press Insert, Release, and Start. 
Type: 251999900071 
4900000* 

If mar indicates 00043, press Release and sie. 
This entire procedure causes two records contain- 
ing the patching program to be punched. Alter- 



natively, the program can be duplicated from 
another tape. 

2. To add corrections to the patch tape, press Reset 
and insert: 

00000 36 01000 00100 Type in the ( following ) 
00012 4400012 01005 data, ( A . . . ., B . . . ., 
00024 4500024 01010 C....). 
00036 38 010000 0200 
00048 38 01011 00200 
00060 4900000 
Note: A read-in area other than 01000 can be used 
by changing the underlined addresses. 
Press Release and Start. The data (A. . .B. . . 
C. . . ) can then be typed. 

If the console locks after program step 12 or 14 
(owing to the fact that a flag or a record mark 
was omitted when the data was typed), press Stop, 
Insert, Release, and Start. Then retype the data 
and the routine should proceed correctly. 
Type: AAAAABBBBBt C . . . C* 

AAAAA — the address of the left- 
hand digit to be cor- 
rected. 

BBBBB - the address of the digit 
to the right of the cor- 
rection. It is destroyed 
by a record mark and 
replaced. The flag is 
essential. 

C . . . C — the correction. A re- 
cord mark is permis- 
sible only as the last 
character of the cor- 
rection. 

If an error was made, press Release, Insert, Re- 
lease, and Start. Retype the data ( A, B, and C ) . If 
an error was not made, press Release and Start. 

3. The final correction to be added should be 
a branch: 00000 00019* 48 00000 00000 49 XXXXX 
where XXXXX is the address of the first instruc- 
tion of the program. Leave an unpunched "trailer" 
on the tape for subsequent corrections. 

To add corrections to the patch tape, duplicate 
the tape up to the point of the final branch cor- 
rection and add the corrections and a new branch 
correction. When the program is completely tested, 
a single program tape may be punched to eliminate 
the patch tape. 

Using the Patch Tape 

Load the program. Before executing it, place the patch 
tape on the paper tape reader, press Reset, insert 
360000000300, press Release and Start. When the cor- 
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rections are loaded, the program halts to permit a data 
tape to be loaded. The start key may be pressed to exe- 
cute the branch to the corrected program. 

flags 

The beginning 1620 programmer may experience some 
difficulty in the proper use of flags in the 1620 machine 
language. Neglecting to set a single flag may result in 
destroying a large area of data in core storage, often 
leaving the programmer with little idea as to the cause. 
If one or more of the following are executed before a 
run with a new program is attempted, errors may be 
discovered that can save reloading the program: 

1. Instead of clearing core storage to zeros before 
loading the program, clear to flag zeros by using 
310000300002. This Transmit Record command 
limits the amount of transfer that may occur out- 
side the program storage area if the setting of one 
or more flags has been neglected. 

2. Check that the Q field of each immediate com- 
mand contains a flag in one of the first four posi- 
tions (Q 7 through Q 1(l ) of the field. The routine in 
Appendix D accomplishes this check rapidly. 

3. Set a flag in the first position ( O ) of every com- 
mand, thus limiting the length of any field transfer 
that may occur within the program storage area. 
The routine in Appendix D leaves the first position 
of the command flagged so that an error in field 
transfer is easily recognized in a dump operation. 

4. If a data area is used into which a field will be 
set at some intermediate program step, it is helpful 
to preset flags in this area. Thus, if the data is set 
incorrectly, a subsequent transfer field operation 
will not seriously harm the execution of the pro- 
gram. Because the above precautions — especially 
( 1 ) and ( 4 ) — may occasionally result in the con- 
tinuance of the program even when an error 
occurs, the error may not be detected immediately. 
Usually these errors can be pinpointed by exam- 
ining the typeout of intermediate data, if such a 
typeout is available. 

"Packing" 

Where space is at a premium, the programmer may 
want to "pack" commands. Packing is possible with an 
unconditional Branch ( B-49 ) command, where the last 
four digits of the Q field ( Q 8 through Q la ) may be used 
to start the next command. It is also possible with the 
Branch Back (BB-42) command, where the last ten 
digits may be used. As these commands ( especially B ) 
are used frequently in most programs, considerable 
storage space can thus be saved. 

It should be noted that the Q field of a Set Flag 
(SF-32) or Clear Flag (CF-33) command can be used 



to store any 5-digit field. The P field of a Control ( K-34 ) 
command or the P and Q fields of a Halt ( H-48 ) com- 
mand can also be used for storage. 

Commands used for initialization or setting of the 
program that are performed only once at the start of 
the program may be placed in areas reserved for data 
or for data manipulation. Alternatively, through use of 
a load program ( Appendix C ) , initialization commands 
may be executed in sequence as they are loaded on top 
of one another from the program tape. Such a load pro- 
gram may be used to read in and read out alphameric 
statements without taking up any space needed for the 
program. 



Branch and Transmit 

A Branch and Transmit ( BT-27 ) command not involv- 
ing transfer of any fields uses 

BT A, A - 1 

to branch to A. The programmer should ensure that a 
flag is set at some location to the left of A— 1. The greater 
the number of storage positions between the flag and 
location A— 1, the more time is consumed in executing 
the BT command. 



Program Indicators 

When planning to create numerical indicators in the 
program to direct program branching, it is well to re- 
member that any single digit can indicate six different 
possible branches, without the use of compare com- 
mands. Figure 2 shows a flow chart and partial program 



Digit_= 1, 
0,or 




Start BNR I, Digit , , 
BNF A, Digit, , 



BDII, Digit , , 
BNF E, Digit , , 



H BNF C, Digit , , 
D 



Figure 2. Six- way Branching Scheme 
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that illustrate a scheme for branching to A, B, C, D, E, 
or F respectively, depending on whether the indicator is 
t, i, 1, 1, 0, or 0, respectively. 

The use of compare commands and 2-digit fields for 
the same scheme would require more commands and 
more execution time. However, record marks should 
be used sparingly in a program, as indicated under 

RECORD MARKS. 

The three commands — Branch No Record Mark, 
Branch No Flag, and Branch on Digit (BNR, BNF, 
and BD)— are very useful in determining the path of 
the program. Where either branch commands or com- 
pare commands can be used successfully, the use of 
branch commands is normally more advantageous. 



Parity Errors 

The following program determines if any parity errors 
exist in storage: 

00000 430001200000 (BD-43) 
00012 110001100001 (AM-11) 
00024 4900000 (B-49) 

If a parity error is present, the program stops in the 
E cycle with an mbr-E or mbr-O check. When a parity 
error is detected, the mar address is always even be- 
cause this program searches core storage in an ascend- 
ing order of addresses. However, if the mbr-O light is 
on, the parity error is in the following odd address. 
The end of the program occurs on a mar check, with 
20000 showing in the Memory Address Register. This 
program in no way affects anything in core storage. 



Record Marks 

The use of record marks in the middle of a program 
should generally be avoided; normally their use should 
be reserved for locations in the data area or at the end 
of the program. A special program is required to dupli- 
cate tapes containing record marks that are end-of-line 
punches on the tape. 



One programmer may experience difficulty in running 
another's program. If the reason for the difficulty is not 
apparent, it is advisable to check the program for its 
dependence upon a record mark at address 00400, and 
if a record mark is required at that address, to check 
that it is present. 

A mar check results if an attempt is made to use a 
record mark as part of a numerical field and if it is 
used to perform a compare or numerical operation with 
that field. A mar check also results from reading an 
address that has a record mark as an address digit. 
These are mar checks that often result from an un- 
tested program. 

A record mark appearing as the first character in 
the record causes the 1620 to fail to execute a Write 
Numerically (WN-38) or Write Alphamerically (WA- 
39) command. In this event, depress the Release and 
Start keys so that the 1620 continues with the next 
command. 



MAR Check 

If a mar check occurs during an I cycle (the cycle is 
indicated by the instruction and execute lights), the 
address in the Memory Address Register is the address 
of one of the twelve digits of the command in which 
the mar check occurred. However, if the mar check 
occurs during an E cycle, the Memory Address Register 
usually contains the address of a digit in the tables or 
in either the P or Q field locations. To determine the 
address of the command being executed when the error 
occurred, the Instant Stop key should be depressed 
twice, following depression of the Reset key. The ad- 
dress of the command following the desired address 
then appears in the Memory Address Register. 

Check on Table Loading 

If a checked computational program has been properly 
loaded and fails to operate, it is always in order to 
check that the tables have been properly loaded into 
storage. 
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Appendix 



Program Testing Aids 

Appendices A through E include a number of short 
programs useful in testing machine language programs 
on the ibm 1620 Data Processing System. 

Note: In some cases the sps has not been checked; 
however, the machine language version has been 
checked in all cases. The 407 printout is as follows: 



Columns 56 to 75 are numerical ant;, a flag zero in these 
columns is represented by an eleven punch and appears 
as a hyphen ( - ) . A flag 1 appears as J, flag 2 as K, etc. 
The record mark, which is represented by 0, 2, and 8 
punches, appears as Z. Column 55 contains a record 
mark represented by an eleven and twelve punch and 
appears as a hyphen ( - ) . The twelve punch or the plus 
sign appears as an &. 



Appendix A 



Dump Routine 



J1010* PROGRAM PRINTOUT ROUTINE TO TYPE 1620 PROGRAMS WITH 1 INSTRUCTION - 
J1Q20* ON A LINE AND WITH SPACING BETWEEN THE FIELDS. THE FIRST AND LAST - 
J1030* ADDRESS IS SPECIFIED AND INSTRUCTIONS ARE ASSUMED TO BE IN STRAIGHT- 
J1040* SEQUENCE WITH EACH 12 CONSECUTIVE DIGITS COMPRISING AN INSTRUCTION. - 
J1050* IF PROGRAMS ARE PACKED * EACH BLOCK OF CONSECUTIVE STEPS MUST BE 
J1060* PRINTED SEPARATELY. ENTRY TO THE PROGRAM IS MADE BY INSERTING 
J1070* 49 START. AFTER DEPRESSING THE RELEASE AND START KEYS » A SERIES OF - 
J1080* UP TO FIVE STARTING AND ENDING ADDRESSES MAY BE SPECIFIED WITH A 
Ji090* RECORD MARK FOLLOWING The LAST SET aS FOLLOWS 
J1091* 

J1100* XXXXX YYYYY 

J1110* XXXXX YYYYY 

J1120* XXXXX YYYYYRM 

J1130* 

J1140* WHERE XXXXX IS THE FIRST ADDRESS IN A BLOCK TO BE PRINTED AND YYYYY- 

J1150* IS THE LAST. THE RESULTS WILL APPEAR AS FOLLOWS 

J1160* 

J1170* AAAAA 00 PPPPP QQQQQ 

J1180* 

J1190* WHERE AAAAA IS THE ADDRESS OF THE INSTRUCTION* 00 IS THE OP CODE. - 
J1200* PPPPP IS THE P FIELD* AND QQQQQ IS THE Q FIELD. THE PROGRAM TO BE - 
J1210* PRINTED MUST BE LOADED FIRST* INCLUDING TABLES, AND THEN THIS 
J1220* PROGRAM FOLLOWS. ONE TAB MUST BE SET 9 SPACES TO THE RIGHT OF THE - 
J1230* LEFT MARGIN. 



J1240 


DORG19500* » ♦ 


-19500 




J1250START 


RNTYINPUT-55* » ♦ TYPE 1ST AND LAST ADDRESSES 


-19500 


361986200100 


J1260 


BNR 


START&26* INPUT-55 » ♦ BRANCH ON RM 


-19512 


451952619862 


J1270 


H 


*>» HALT IF RECORD MARK IS PRESENT 


-19524 


480000000000 


J1280 


DORG*-9> • , 


-19526 




J1290SET 


SF 


INPUT-55* >» SET FLAG IN HIGH ORDER 


-19526 


321986200000 


J2010 


SF 


INPUT-49*** SET FLAG IN HIGH ORDER 


-19538 


321986800000 


J2020BEGIN 


RCTY 


, »» RETURN CARRIAGE 


-19550 


340000000102 


J2030 


TF 


PRINTB-1,INPUT-51»» 1ST ADD TO PRINT 


-19562 


261994219866 


J2040 


WNTY PRINT B-5» » » PRINT INST ADDRESS 


-19574 


381993800100 


J2050MOVE 


TFM 


TD&6,PRINTB-12» » TO P FIELD OF TD INST 


-19586 


1619616J9931 


J2060 


TF 


TD&ll, INPUT-51* > TO Q FIELD OF TD INST 


-19598 


261962119866 


J2070TD 


TD 


00000,00000,, MOVE INST TO PRINT AREA 


-19610 


250000000000 


J2080 


CM 


TD&6»PRINTB-1» » COMP. TO 12TH POSITION 


-19622 


1419616J9942 


J2090 


BE 


CONT,** IF EQUAL GO TO CONT 


-19634 


461967801200 


J2100 


AM 


TD&6,1*10» MODIFY P FIELD BY 1 


-19646 


111961600001 


J2110 


AM 


TD&11»1»10* MODIFY Q FIELD BY 1 


-19658 


111962100001 
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J2120 B TD»»* BRANCH BACK TO TD TO REPEAT 

J2130 DORG*-3»»» 

J2140CONT TR PRINTA-12»PRINTB-12» » MOVE TO PRINTA 
J2150 TD PRINTB-10»00400» , RM TO P2 OF PRINTB 

J2160 TD PRINTA-5»00400» ♦ RM TO Q7 OF PRINTA 

J2170 TBTY » ♦ > TABULATE 

J2180 WNTYPRINTB-12» ♦ » PRINT OP CODE 

J2190 SPTY»>> SPACE 

J2200 WNTYPRINTA-10* » > PRINT P FIELD 

J2210 SPTY»,» SPACE 

J2220 WNTYPRINTB-5» » ♦ PRINT Q FIELD 

J2230 C INPUT-51 » INPUT-45 » » COMPARE TO LAST 

J2240 BNL NEXT,»» BRANCH TO NEXT BLOCK 

J2250 AM INPUT-51»12»10> INC. INST. ADD 

J2260 B BEGIN* »> BRANCH UP TO REPEAT 

J3010 DORG*-3»»» 

J3020NEX T TR I NPUT-55 > I NPUT-44 > > ADVANCE ADDRESSES - 
J3021 RCTY,,» 

J3030 B START&12»»» BRANCH TO START&12 

J3040 DORG*-3»»> 
J3050* AREA DEFINITIONS 
J3060INPUT DS 56.,* 
J3070PRINTADC 13»0»t 
J3080PRINTBDC 13»0@»» 
J3090 DENDSTART > » » 



BY 12 - 



19670 
19678 
19678 
19690 
19702 
19714 
19726 
19738 
19750 
19762 
19774 
19786 
19798 
19810 
19822 
19830 
19830 
19842 
19854 
19862 



-19943 



491961000000 

3119918 19931 
251993300400 
251992500400 
340000000108 
381993100100 
340000000101 
381992000100 
340000000101 
381993800100 
241986619872 
461983001300 
1119866000J2 
491955000000 

311986219873 
340000000102 
491951200000 



Dump and Simulate Routine 

The following program dumps a program from core 
storage in the form: 

AAAAA OO PPPPP QQQQQ. 
In addition, the dump routine simulates the execu- 
tion of B (49), BT (27), BTM (17), and BB (42) 
instructions. Therefore the dump routine, after dumping 
a branch command, continues dumping at the address 
specified by the P field of the command. 



If sense switch 4 is on, it simulates any conditional 
branch that occurs. If sense switch 3 is on, the routine 
halts on a conditional branch in order to allow the op- 
erator time to consider the setting he wishes for sense 
switch 4. 

Linkage to this routine is 1619559AAAAA 

4919500 

where AAAAA is the starting address. 

The routine uses storage space from 19500 to 19999. 



SPS 


LISTING 


ADDRESS 


COMMAND 


91000 


DORG19500* » » 






91010START 


RCTY .RETURN CARRIAGE 


-19500 


34 01 2 


91020 


TF TYLO»TRAND&ll» > »SET TYPE OUT 


-19512 


261996219559 


91030 


WNTYTYLO-4, » , TYPE ADDRESS 


-19524 


3819958 01 


91040 


TFM TRAND&6»PRINTB-12»7» RESET LOOP 


-19536 


1619554J9986 


91050TRAND 


TD »>» TRANSFER COMMAND BY DIGITS 


-19548 


25 


91060 


AM TRAND&6»01 » 10»STEP BY ONE 


-19560 


1119554 01 


91070 


AM TRAND&ll »01 ,10» 


-19572 


1119559 01 


91080 


CM TRAND&6»PRINT8»7»TEST FOR END 


-19584 


1419554J9998 


91090 


BNZ TRAND»»» LOOP TRANSFER OF DIGITS 


-19596 


4719548 12 


91100 


TR PRINTA-10»PRINTB-10» » MOVE RECORD 


-19608 


311997519988 


91110 


TD PRINTA-5»PRINTB» » SET RMKS 


-19620 


251998019998 


91120 


TD PRINTB-10»PRINTB> ♦ 


-19632 


251998819998 


91130 


TBTY » » » TABULATE 


-19644 


34 01 8 


91140 


WNTYPRINTB-12 » » » PRINT OPERATION CODE 


-19656 


3819986 01 


91150 


SPTY ♦ , » 


-19668 


34 01 1 


91160 


WNTYPRINTA-10. » , PRINT P FIELD 


-19680 


3819975 01 


91.170 


SPTY, , » 


-19692 


34 01 1 


91180 


WNTYPR I NTB-5 » * » PRINT Q FIELD 


-19704 


3819993 01 


91190 


SF PRINTB-12»»» 


-19716 


3219986 


91200 


CM PRINTB-11,48»10,TEST FOR HALT &BRANCH 


-19728 


1419987 M8 



8 



91210 


BP 


BBB»»» BRANCH FOR 49 COMMAND 


-19740 


4619872 


11 


91220 


BZ 


START*** HALT 48 COMMAND 


-19752 


4619500 


12 


91230 


CM 


PRI NTB-11 » 17 » 10 » TEST FOR BTM 


-19764 


1419987 


J7 


91240 


BZ 


BTBTM * * » 


-19776 


4619916 


12 


91250 


CM 


PRINTB-11 »27»10» TEST FOR BT 


-19788 


1419987 


K7 


91260 


BZ 


BTBTM* » » 


-19800 


4619916 


12 


92010 


CM 


PRINTB-11 »42»10»TEST FOR BB OR OTHER B 


-19812 


1419987 


M2 


92020 


BZ 


BTBB » » » 


-19824 


4619936 


12 


92030 


BN 


START*** CONTINUE 


-19836 


4719500 


13 


92040 


BC3 


HALT,** SENSE SWITCH 3 ON STOPS DUMP 


-19848 


4619956 


03 


92050 


BNC4START, * »SENSE SWITCH 4 ON CON. BRANCH 


-19860 


4719500 


04 


92060BBB 


SF 


PRINT A- 10* * »FLAGP FIELD 


-19872 


3219975 




92070 


TF 


TRAND&ll»PRINTA-6» » SET NEW ADDRESS 


-1*98 84 


261955919979 


92080 


RCTY»,» STORE INP FIELD RETURN FOR 42 


- 19896 


3400000 


01 2 


92090STORE 


DS 


5 >*-5 » » 








92100 


B 


START* » 


-19908 


4919500 


2619 


921 10 


DORG*-3* » * 








92 120BTBTM 


TF 


ST0RE*TRAND&11» » STORE ADDRESS FOR BB 


-19916 


261990319559 


92130 


B 


BBB»»» EXECUTE 17 OR 27 


-19928 


491987202619 


92140 


DORG*- 3» » » 








92150BTBB 


TF 


PRINTA-6*STORE» »SET STORED ADDRESS 


- 199 36 


261997919903 


92160 


B 


BBB»»» EXECUTE 42 


- 19948 


491987204800 


92170 


DORG*-3» » » 








92180HALT 


H 


♦ » » 


-19956 


48 Z 




92190 


B 


BBB-12 * * » TEST TO BRANCH ON CONDITIONAL 


-19968 


491986000000 


92200PRI NTADC 


1 1 >OOOOOC00OO@»*£r6 


-19980 


OOOOOZOOOOOO 


92210PRINTBDC 


13*000000000000®, , 


-19987 


OOOOOOOOOOOZ 


92220TYLO 


DC 


5 ,000000, HALT&6* 








92230 


DC 


1 ,@,HALT&7 , 








92240 


DENDSTART, > » 









Appendix B 



General Trace 

The general trace and the flow trace ( No. 3 ) routines 
are available at the DP Library Services Department. 
Requests for the program tapes and accompanying 
documentation should be placed with the appropriate 
applied programming support group. 

Assembly 

The general trace program requires 2443 locations of 
core storage. The small parameter table ( Table I ) used 
with the program requires additional storage. This stor- 
age varies, depending upon the number of parameters 
specified. The selective trace is supplied in symbolic 
form with comments and is completely relocatable. 

Table I Small Parameters 

Operation Code Trace Output 

A, AM, S, SM Contents of P field after execution; 

contents of Q field. 



Operation Code Trace Output 

M, MM Multiplicand; multiplier; product. 

C, CM Contents of P field; contents of Q 

field. 

TD, TDM, CF, SF Digit at P after execution. 
TF, TFM Contents of P field after execution. 

BT, BTM Contents of (P-l ) field after 

execution. 

LD, LDM Dividend positioned in fixed 

product area. 

D, DM Quotient; remainder; divisor. 
TR Record at P after execution. 
K No additional output. 

DN, RN, RA, First record read from or punched 

WN, WA on tape. ( Typewriter i/o 

functions normally). 
NOP No additional output. 

BB No additional output 

BD, BNR, BNF Digit at P. 
BI, BNI, B No additional output. 
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Operation 

To use the genera] trace, the programmer should first 
load his object program, then the trace program ( using 
360000000300), and finally any data tape necessary. He 
then depresses Start and a branch occurs to the first 
instruction of the trace. This instruction is a RNTY and 
the programmer must type in the address of the start- 
ing location in his program, in the form XXXXX. When 
he presses Release and Start, the second trace instruc- 
tion is executed. This is also a RNTY and he must now 
type in the addresses of the instructions with which 
he wishes to start and stop tracing. For example, he 
may type in AAAAABBBBBCCCCCDDDDDEEEEE 
FFFFFt. The trace program interprets this to mean 
that when it reaches the instruction with address 
AAAAA ( or CCCCC or EEEEE ), it is to begin tracing. 

The trace continues until the corresponding instruc- 
tion at BBBBB (or DDDDD or FFFFF) is reached 
(but not executed) At this point the trace terminates. 
The trace starts ag a when the instruction at AAAAA, 
CCCCC, or EEEEE is encountered, and terminates 
when the corresponding terminal parameter address 
(BBBBB, DDDDD, or FFFFF respectively) is encoun- 
tered. There is no limit to the number of parameter ad- 
dresses that may be given, provided each trace starting 
address is followed immediately by its corresponding 
trace terminating address. 

Note that if the trace starts at AAAAA, it does not 
terminate until it reaches BBBBB, even if it executes 
the instructions at CCCCC, DDDDD, etc. In other 
words, once the trace starts, it continues until it reaches 
the terminal address of the particular parameter set. 
Note, too, that each parameter address must be flagged 
in the high-order position and that the last parameter 
must be followed by a record mark ( t ) . 

When in the nontrace mode, the general trace moni- 
tors each instruction of the object program (i.e., each 
object instruction executed under trace control) but 
there is no typeout. When tracing begins, the following 
is typed out for each object instruction: the address of 
the instruction, the operation code, the P address, and 
the Q address exactly as they appear in storage. How- 
ever, if the instruction contains a record mark, only 
that part of the instruction up to, but not including 
the record mark, is typed. In addition, other informa- 
tion, as indicated in Table I, may be typed out. 

Should the programmer wish to stop tracing, he must 
do so only when the program is in the tracing mode. 
He must depress Stop while the program is typing out 
the instruction address. He may then insert a branch 
to the address just typed out and his program then 
executes without trace control. 

Note: The programmer must not terminate the trace 
during the execution of a subroutine that is linked to 



his program with either a BT or BTM instruction and 
a BB instruction. If he does, the BB will not execute 
properly, since the trace simulates, but does not exe- 
cute, BT, BTM, or BB instructions. 

If the programmer wishes to redefine the trace param- 
eters while the program is executing, he may do so by 
stopping the trace in the manner described above. He 
must then insert a branch to the first instruction of the 
selective trace program. At the first RNTY, he enters 
the address of the instruction at which he halted the 
trace. At the second RNTY, he may enter the new trace 
parameters. When he presses Release and Start, the 
trace resumes at the point where it was interrupted, 
but now traces only the newly defined areas. 

7 . Trace Routine for Branches in a Program 

This routine prints out all branches that are executed, 
along with their addresses. The routine is in locations 
19500 to 19992. BT and BTM commands are printed out 
and executed but not traced. H commands halt the rou- 
tine at 19788; to continue, press Start. The address of 
the command being traced is at 19987. 

Linkage for the routine is 1619595@@@@@ 

4919500 

where @@@@@ is the starting address. 

To eliminate typing of BTM and BT commands, place 
a 41 at both 19668 and 19692. To modify for nontypeout 
of branches on a sense switch, 19 units of storage space 
must be used at some location. Type the address of this 
location into 19982. At this address, place 461950000X00 

4919820 

where X stands for the sense switch used. When the 
sense switch is on, the typing of branch commands is 
eliminated. 

To eliminate BT and BTM typeout, and add sense 
switch control without adding space, type into 19656: 
491970400000 
461950000X00 
4919820 

and type into 19982, 19668. 

The best place to stop the routine is during typing. 

To leave trace on the execution of a particular branch 
command, place a flag in the 01 position of that branch 
command. The program then executes without tracing. 

A Branch, BT, or BTM command that contains a flag 
in either P 3 , P 4 , or P 5 results in having the trace branch 
to the 4, 3, or 2 digit location defined by that flagged 
field. If the trace "hangs up," check the last branch com- 
mand printed out for a flag in one of these P-field loca- 
tions. A flag in the P (i position of a branch command 
will cause an error as this is considered a negative 
number. 

To eliminate the typeout of branches on a sense 
switch, use the following changes and additions: 
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T2160 
T2191 

T2200SENSE 
T2210 



B SENSE » * * 
DORG19480* » ♦ 
BC4 START* »> 
B BTBTM&12 » > 



-19980 

-19480 
-19492 



49 198 4 J 

491950000400 
49198 20 1619 



NUMERICAL LISTING FOR TRACE OF BRANCHES ROUTINE 



-004719 56001200 32195 3400000 
1119590 -11119595 -1 
1419789 J74619808 12 
M24619900 11 1419736-1 -2 



1619535 -004719536011003219535 
26 1999 11 959 5 1619590 J9788 2 5- 
14 19590 J98 0047195840 120032 19788- 
1419789 K74619808 12 1419789 
4419764195341419760-1 -1441978 8195 3 514197 84-2 -141 
4919500 1619898J97283819987 01 2519800 4003400000 01 13819 
788 01 34 01 21519800 449- 3219790 1619898J 

95 0026 196 55 1979416 19794J995649 19 728 2619 595 19655 261979419655 
4919820- 



J9500 
J9560 
J9620 
J9680 
J9740 
J9800 
J9860 
J9920 
J9980 



SPS 


LI STING 


ADDRESS 


COMMAND 


T1001 


DORG19500* * » 






T1010START 


TFM 


IND&11»000»9»CLEAR FLAG IN INDICATORS 


-19500 


1619535 -00 


T1020 


BNH 


*&24» » . 


-19512 


47195 36 01100 


T1030IND 


SF 


IND&ll »000,9»SET HP 


-19524 


3219535 000 


T1040 


BNZ 


*&24» > » 


-19536 


471956001200 


T1050 


SF 


IND&10,»> SET EZ 


-19548 


321 "33400000 


T1060 


TF 


TYLO * TRANDtSl 1 » » STORE ADDRESS 


-19560 


261999 1 19595 


T1070 


TFM 


*&18,EXECU,7> RESET 


-19572 


16 19590 J9788 


T1080TRAND 


TD 


EXECU»»»TRANSMIT DIGIT BV DIGIT 


-19584 


250 


T1090 


AM 


*-6>01 »10,STEP BY 1 


-19596 


1 1 1 ; 59 -1 


T1100 


AM 


*-13»0l»l0,STEP BY 1 


-19608 


1119595 -1 


T1110 


CM 


TRAND&6»EXECU&12»7»TEST TRANSFER 


-19620 


1419 590J9800 


T1120 


BNZ 


TRAND»»»LOOP TO FINISH TRANSFER 


-19632 


471 9 5840 1200 


T1130PFIELDSF 


EXECU* » »STORE P FIELD OF BRANCH IN Q 


- 19644 


321' 78 8 


T1140 


CM 


EXECU&1»17»10» » 


-19656 


1419789 J7 


T1150 


BZ 


BTBTM » » » 


-19668 


4619 8 08 01200 


T1160 


CM 


EXECU&l *27 »10» ♦ 


-19680 


1419789 K7 


T1170 


BZ 


BTBTM * * » 


-19692 


461980801200 


T1180 


CM 


EXECU&l » 42 ♦ 10» » 


-19704 


1419789 M2 


T1190 


BH 


BBB > » » 


-19716 


461990001100 


Tl 200SET I NDCM 


*&8»01002>710>TURN OFF I ND I C ATORS 


-19728 


1419736-1 -2 


T.1210 


BNF 


*&24, IND&10» , CHECK. EQUAL ZERO 


-19740 


441976419534 


T1220 


CM 


*&8»01001t710>SET EQUAL ZERO 


-19752 


1419760-1 -1 


T1230 


BNF 


*&24» iND&llt » CHECK HIGH POSITIVE 


-19764 


441978819535 


T1240 


CM 


*&8»0200l,710» SET HIGH POSITIVE 


-19776 


1419784-2 -1 


T1250EXECU 


NOP 


>>• COMMAND PLACED HERE 


-19788 


41 


T1260 


B 


START* » » 


-19800 


491950001619 


T2001 


D0RG*-3* ♦ » 






T2010BTBTM 


TFM 


END&6 » SET I NDt7 ♦ BT OR BTM COMMAND 


-19808 


1619898 J9728 


T2020 


WNTYTYLO-4 ♦ » > TYPE OUT ADDRESS 


-19820 


381998700100 


T2030 


TD 


EXECU&12,400» » SET RECORD MARK 


-19832 


251980000400 


T2040 


SPTY 


♦ * * SPACE CARRIAGE 


-19844 


340000000101 


T2050 


WNTYEXECU& 12 ♦ ♦ » TYPE OUT COMMAND 


-19856 


381978800100 


T2060 


RCTY 


♦»»RETURN CARRIAGE 


-19868 


340000000102 


T2070 


TDM 


EXECUT&12»4»»REPLACE RECORD MARK 


-19880 


151980000004 


T2080END 


B 


» » * 


-1989 2 


490 03219 


T2081 


D0RG*-3* ♦ » 






T2090BBB 


SF 


EXECU&2» » ♦ 


-19900 


321979000000 


T2100 


TFM 


END&6 »START»7»SET FOR BRANCH COMMAND 


-19912 


1619898J9500 


T2110 


TF 


PFIELD&ll*EXECU&6»tSTOR P FIELD 


-19924 


261965519794 


T2120 


TFM 


EXECU&6»BBI »7»SET RETURN FOR BRANCH 


-19936 


1619794J9956 


T2130 


B 


SET I ND » * » 


-19948 


491972802619 
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T2131 D0RG*-3»»> 

T2140BBI TF TRAND&ll ♦PFIELD&ll » » SET NEW ADDRESS -19956 261959519655 

T2150 TF EXECU&6»PFIELD&11»» -19968 261979419655 

T2160 B BTBTM&12» » .STORE ADDRESS IN Q -19980 49198200 

T2170TYLO DS 5»*»»> -19987 -0000Z 

T2180 DC 1»@>*&1> 

T2190 DENDSTART » » » 



2. Trace and Count Routine for Branches 
in a Program 

This routine traces a program and prints out the 
branches that are executed and their locations. It fur- 
ther prints out the number of times a branch is executed 
before another branch occurs. Therefore, a branch oc- 
curring 300 times is printed out only once with the 
number 00300 following the command. BT and BTM 
commands are executed but not traced. Overflow oc- 
curs when a branch is executed more than 99,9999 times, 
without other branches occurring. 

This routine prints out a 23-digit line containing, in 
order, the address of the branch, the record mark, the 
branch command, and the number of times the branch 
was executed. 

This routine is located at 19486 to 19999. The address 
of the command being traced is at 19981 to 19986. There 
are record marks at 19981 and 19987. 

The best place to stop the trace routine is at any of 
the commands from 19486 to 19630, or at 19678, where 
the command being traced is executed. To stop while 



typing out, press the Stop key eleven times in order to 
ensure that the indicators on the machine are reset. 
Executing the command 271991419913 resets the indi- 
cators. 

Linkage to this routine is 1619581 @@@@@ 

4919486 

where @@@@@ i s the address of the start command. 

To stop tracing on the execution of a particular 
branch command, place a flag in the 01 position of 
that branch command. The program then executes 
without tracing. 

A Branch, BT, or BTM command that contains a flag 
in either P 8 , P 4 , or P 5 results in having the trace branch 
to the 4, 3, or 2 digit location defined by that flagged 
field. If the trace "hangs up," the last branch command 
printed out should be checked for a flag in one of these 
P-field locations. A flag in the P (i position of a branch 
command will cause an error as this is considered a 
negative number. 

To eliminate typeout on a sense switch, use the fol- 
lowing changes and additions: 



T2030 BNZ SENSE > » » CHECK FOR TYPE -19766 4719466 12 
T2281 DORG19466»»» 

T2290SENSE BC4 OUT&72»»»IF SENSE SWITCH 4 NO TYPE OUT -19466 4619882 04 

T2300 B OUT»*» TYPE OUT -19478 4919810 1619 

NUMERICAL LISTING FOR TRACE AND COUNT OF BRANCHES ROUTINE 

1619521 -004719522 11 3219521 -004719546 12 3219520 J9486 3 

2619986195811619576J967825- - 1119576 -11119581 ~1 J9546 3 

1419576J96904719570 12 3219678 1419679 M24619698 11 J9606 3 

27199141991341 4919486 3219680- 2619994196841619 J9666 3 

684J97424919666 26195 81199942419 7091998647198 10 12 1119980 J9726 3 

-12719914199134919486 3819976 01 34 . 01 23219685 J9786 3 

2619999196892619989196793519982 01 1619980-0001261970919986 J9846 3 

4919790 1419922-1 -24419950195201419946-1 -14419974195211419 J9906 3 

970-2 -142-0001Z - J9966 3 



SPS LISTING ADDRESS COMMAND 
T1001 DORG19486»>» 

T1010START TFM I ND&l 1 » 000 » 9 » CLEAR FLAGS IN I ND I CATORS- 19486 1619521 -00 

T1020 BNH *&24>»» -19498 471952201100 

T1030IND SF IND&ll »000»9, SET HIGH POSITIVE -19510 3219521 000 

T1040 BNZ *&24»». -19522 471954601200 
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T1050 


SF 


IND&lO*** SET EQUAL ZERO 


-19534 


3219520 


T1060 


TF 


TYLO, TRAND&l 1 »» STORE ADDRESS 


-19546 


261998619581 


T 10.7 


TFM 


*&18 »EXECU»7 » RESET TRANSFER AREA 


-19558 


1619576 J9678 


T 1 08 OTR AND 


TD 


EXCU,»» TRANSMIT DIGIT BY DIGIT 


-19570 


250 


T1090 


AM 


*-6»01»10* STEP BY ONE 


-19582 


1119576 -1 


T1100 


AM 


*-13>0l»10» STEP BY ONE 


-19594 


1119581 -1 


TlllO 


CM 


TRAND&6 »EXECU&12 > 7* TEST TRANSFER 


-19606 


1419576J9690 


Tl 120 


BNZ 


TRAND » » » LOOP TO FINISH TRANSFER 


-19618 


471957001200 


Tl 130 


SF 


EXECU» 9 9 


-19630 


32 19678 


T1140 


CM 


EXECU&l »42 9 10* » 


-19642 


1419679 M2 


Tl 150 


BH 


BBB»»* BRANCH IF BRANCH POSSIBLE 


-19654 


461969801100 


Tl 160 


BT 


SETIND»SETIND-1 » ♦ SET INDICATORS 


-19666 


271991419913 


Tl 170EXECU 


NOP 


999 COMMAND PLACED HERE 


-19678 


41 


Tl 180 


B 


START 9 9 9 


-19690 


4919486 3219 


Tl 181 


D0RG*-3 ♦ » » 


— 




Tl 190BBB 


SF 


EXECU&2*** STAD STORED HERE 


-19698 


32196800 


Tl 200 


TF 


PFIELD»EXECU&6* ♦ STORE P FIELD 


-19710 


261999419684 


Tl 210 


TFM 


EXECU&6»BBBI .7* SET NEW BRANCH 


-19722 


1619684J9742 


T1220 


B 


EXECU-I2»»t SEE IF COMMAND BRANCHES 


-19734 


4919666 2619 


T2001 


D0RG19742* » » 


*"* 




T2010BBI 


TF 


TRAND&ll*PFIELD> »SET NEW ADDRESS 


-19742 


2619581 19994 


T2020 


C 


STAD 9 TYLO ♦ » CHECK OLD BRANCH 


-19754 


241970919986 


T2030 


BNZ 


OUT*,* TYPE OUT IF THEY DO NOT COMPARE 


-19766 


471981001200 


T2040 


AM 


COUNT»0l»10*COUNT BRANCH 


-19778 


1119980 -1 


T2050 


BT 


SETIND»SETIND-1» >SET INDICATORS 


-19790 


271991419913 


T2060 


B 


START. ♦ * 


-19802 


4919486 3819 


T2061 


D0RG*-3» » > 






T2070OUT 


WNTYCOUNT-4 » » »TYPE OUT NUMBER OF TIMES 


- 1 9 8 10 


3819976 01 


T2080 


RCTY»,» BRANCH WAS EXECUTED 


-19822 


34 01 2 


T2090 


SF 


EXECU&7 ♦ » » SET FLAG IN Q FIELD 


-198 34 


3219685 


T2100 


TF 


PFIELD&5»EXECU&11 > » TRANSFER Q FIELD 


-19846 


261999919689 


T2110 


TF 


PFIELD-5.EXECU&1 * , TRANSFER OP CODE 


-19858 


261998919679 


T2120 


DN 


19982* »»NEW BRANCH TYPED OUT 


-19870 


3519982 01 


T2130 


TFM 


COUNT»00002»7»RESET COUNT 


-19882 


1619980-0001 


T2140 


TF 


STAD, TYLO, *SET ADDRESS OF NEW BRANCH 


-19894 


261970919986 


T2150 


B 


OUT-20 , , , 


-19906 


4919790 1419 


T2151 


D0RG*-3 » » > 


— 




T2 160SET I NDCM 


*&8, 01002, 710, TURN OFF I ND I C ATORS 


-19914 


1419922-1 -2 


T2170 


BNF 


*&24,IND&10,» CHECK EQUAL ZERO 


-19926 


441995019520 


T2180 


CM 


*&8»0100l »710» SET EQUAL ZERO 


-19938 


1419946-1 -1 


T2190 


BNF 


*&24, IND&ll,, CHECK HIGH POSITIVE 


-19950 


441997419521 


T2200 


CM 


*&8 ,02001 ,710, SET HIGH POSITIVE 


-19962 


1419970-2 -1 


T2210 


BB 


,,, INDICATORS NOW RESET 


-19974 


42-00O1Z 


T2220COUNT 


DC 


5 ,00001 ,19980* 


-19986 


Z 


T2230PFI ELDDS 


5,19994*, P FIELD OF BRANCH 






T2240TYL0 


DS 


5*19986** ADDRESS OF COMMAND 






T2250 


DC 


1,@, 19987* RECORD MARK 






T2260 


DC 


1,0,19981, RECORD MARK 






T2270STAD 


DS 


5 »BBB&11 , » 







T2280. DENDSTART*** 



3. Flow Trace 

Assembly 

The flow trace program is supplied in symbolic form 
with comments included. It occupies 631 positions of 



core storage and may be assembled anywhere in stor- 
age. 

Operation 

To use the flow trace, the programmer should first load 
his object program, then load the assembled flow trace, 
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using a 360000000300 instruction. When the trace has the trace is typing out one of the branched-to addresses, 
been read in, any data required by the object program He may then depress Insert and type in a branch to this 
should be placed in the reader. Depress Start; this re- address. When he depresses Release and Start, his pro- 
suits in a branch to the first instruction of the trace. This gram executes normally without trace control, 
instruction is RNTY; the programmer must type in Note: The programmer must not discontinue the trace 
XXXXX, where this address is the starting address of in the middle of a subroutine linked to his main pro- 
his program. He then depresses Release and Start and gram by a BT or BTM instruction and a BB instruction, 
his program executes under trace control. Whenever a If he does, the BB will execute improperly because the 
branch actually occurs in the object program, the ad- trace simulates, but does not execute BT, BTM, or BB 
dress of this branch instruction is typed out at the left instructions. 

margin, followed by the address to which it branched. To resume tracing, the programmer must interrupt 
If, the programmer wishes for any reason to stop his program and branch to the RNTY instruction pre- 
facing his program, he must press the Stop key when viously referenced. 

Flow Trace: Sample Assembly 





DORG 18000 


18000 








* READ 


STARTING ADDRESS INTO TRACE 










BEGIN 


RNTY STRT&31 


18000 


36 


18103 


00100 


* STORE HP AND EZ TRIGGER SETTINGS 










STTRIG 


TDM SET&9 


18012 


15 


18357 


00000 




BE STRT 


18024 


46 


18072 


01200 




TDM SET&9,1 


18036 


15 


18357 


00001 




BH STRT 


18048 


46 


18072 


01100 




SF SET&9 


18060 


32 


18357 


00000 


* SAVE 


ADDRESS OF INSTRUCTION BEING 


TRACED 






STRT 


TF WRT1&6»*&35 


18072 


26 


18434 


18107 




TFM *&18»1 


18084 


16 


18102 


J8360 


* MOVE 


INSTRUCTION INTO TRACE PROGRAM 










TD 


18096 


25 


00000 


00000 




AM *-l,l 


18108 


11 


18107 


-0001 




AM *-18»l 


18120 


11 


18102 


-0001 


* TEST 


FOR WRAP AROUND MEMORY 












CM STRT&35, 20000 


18132 


14 


18107 


K0000 




BL *&24 


18144 


47 


18168 


01300 


TFM 


STRT&35 


18156 


16 


18107 


-0000 




CM STRT6-30, 16-12 


18168 


14 


18102 


J8372 




BL STRT&24 


18180 


47 


18096 


01300 


* SET 


AND CLEAR FLAGS ON INSTRUCTION 










SF I 


18192 


32 


18360 


00000 




CF I&l 


18204 


33 


18361 


00000 




SF I &2 


18216 


32 


18362 


00000 




CF I &3 


18228 


33 


18363 


00000 




CF I &4 


18240 


33 


18364 


00000 




CF I&5 


18252 


33 


18365 


00000 




CF I £-6 


18264 


33 


18366 


00000 


* TEST 


FOR BRANCH INSTRUCTIONS 












CM I&1,42»10 


18276 


14 


18361 


000M2 




BL TWO 


18288 


47 


18504 


01300 


* HANDLE BRANCH BACK 












BE ONE 


18300 


46 


18472 


01200 


* SET 


UP TRAP FOR EXECUTED BRANCHES 










TF REPL&11»I&6 


18312 


26 


18391 


18366 




TFM I&6.REPL 


18324 


16 


18366 


J8380 




TFM 1618, STRT 


18336 


16 


18378 


J8072 


* SET 


HP AND EZ TRIGGERS 










SET 


AM *&9,,810 


18348 


11 


18357 


0-0-0 



14 



* LOCATION OF OBJECT INSTRUCTION IN TRACE 



I NOP 

B 

DORG *~3 

* GIVE TRACE BRANCHED TO ADDRESS 
REP L TFM STRT635 

RCTY 

* WRITE OUT ADDRESS OF EXECUTED BRANCH 

WNTY WRT1&2 18404 38 18430 

TF WRT1&6 >STRT&35 18416 26 18434 



18360 41 00000 

18372 49 00000 
13380 

18380 16 18107 

18392 34 00000 



WRT1 SPTY 

DC 1»@»WRT167 
SPTY 



00000 
00000 



-0000 
00102 

00100 
18107 
00101 



18428 34 00000 
18435 00001 Z 
18440 34 00000 00101 



* WRITE OUT ADDRESS OF INSTRUCTION BRANCHED TO 



WNTY WRT1&2 
B STRT 
DORG *-3 

* SIMULATE BRANCH BACK 
ONE TFM STRT6-35 

TFM *-l,9000o 
B REPL&12 
DORG *-3 

* ARRANGE TO STORE TRIGGER SETTINGS 
TWO TFM 1&18»STTRIG 

* TEST FOR BTM 

CM 161,17,10 
BE THREE 

* TEST FOR BT 

CM 16-1,27, 10 

* EXECUTE NON-BT ,BTM INSTRUCTIONS 

BNE SET 

* SAVE RETURN ADDRESS 
THREE TF ONE 61 1 » STRT&35 
*S I MUL ATE BRANCH 

TF STRT&35,I&6 
SM I&6,1 

* ARRANGE TO TRANSMIT FIELD 

TDM I&1,6 
TFM I £.18 ,REPL&12 
B I 
DEND BEGIN 
END OF PASS I I 



18452 38 
18464 49 
18472 

18472 16 
18484 16 
18496 49 
18504 



18430 
18072 



18107 
18483 
18392 



00100 
00000 



-0000 
ROOOO 
00000 



18504 16 18378 J8012 

18516 14 18361 000J7 

18528 46 18564 01200 

18540 14 18361 000K7 

18552 47 18348 01200 

18564 26 18483 18107 

18576 26 18107 18366 

18588 12 18366 -0001 

18600 15 18361 00006 

18612 16 18378 J8392 

18624 49 18360 00000 
18000 



4. Fast Trace 

Whenever a branch is executed, this trace prints out: 

AAAAA PPPPP CCC, 
where AAAAA is the address of the branch command, 
PPPPP is the P field of the command, and CCC is the 
number of times the branch was executed without an- 
other branch command occurring. CCC is printed out, 
only if it is greater than 1. 

If a WN is encountered, the following is printed out: 

38PPPPP XXXXXXX . . . XXXXX, 
where XXXXX is the record at PPPPP. In other words, 
all output in the program is typed out on the typewriter. 



Linkage to this routine is 1616095 @@@@@ 

4916000 

where @@@@@ is the starting address. 

If the P field of a branch command is negative, the 
routine "hangs up" with RR in the operation code. The 
routine also does not work if P 3 , P 4 , or P 5 of a Branch 
command is flagged. The trace routine also simulates 
BT, BTM, and BB commands. However, it does not 
print out when these commands are executed, but con- 
tinues tracing the program in the BT or BTM sub- 
routine. 

The routine is located from 16000 to 16744, with 
record marks at 16744, 16738, and 16599. See Figure 3 
for a flow chart of this program. 
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SP s 


LISTING 


r\UUr\ COO 


fOMM AM D 


01000 


DORG16000» » ♦ 






01010START 


TDM 


SET&ll .2 . »RECORD INDICATORS 


16000 


1 5 1 69ft 7 9 


01020 


BNH 


*&24 » » » 


16 01 ? 




01030 


TDM 


SET&ll 9Q9 .SET HP 


X O %J C *T 


1*1 1 n 


01040 


BNZ 


*&24. » » 


16036 


471 6060 1 7 


01050 


TDM 


SET&ll » 1 * »SET EZ 


16048 

X \J V *T W 


1 516987 1 


01060BEGI N 


TF 


TYLO. TRAND&l 1 » »STORE ADDRESS OF COMMAND 


16060 


76 1 67371 60QS 


01070 


TFM 


*&18 .EXECU.7 9 RESET TRANSFER AREA 


1 607? 


161 60Q0 !6Pftft 


01080TRAND 


TD 


... TRANSMIT DIGIT BY DIGIT 


1 60R4 

X VJ w *T 




01090 


AM 


TRAND&6 »01 • 10 . STEP BY ONE 


16096 


1116090 01 

XXX \J w J w W X 


01 100 


AM 


TRAND&ll >Ol ♦ 10. STEP BY ONE 


16108 


1116095 01 

XXXWV/^^ V/ X 


01 1 10 


CM 


TRAND&6.EXECU&12.7. TEST TRANSFER 


16120 

1U i t. V 


1 41 6090 16300 


01120 


BNZ 


TRAND»>* LOOP TO FINISH 


16132 


4716084 12 


01130 


CF 


EXECU&l... STAD IN FIELD 




33169R90 


01 140 


SF 


EXECU 9 » 9 


X X J 


3 9 1 6 9ft ft 


01150 


CM 


EXECU&l » 17 » 10. TEST FOR BTM 


x O x O O 


14169AQ 17 


01160 


BE 


BBTM 999 


16180 
x x w 


461 6 39 8 19 


01170 


CM 


EXECU&l .27 » 1 0. TEST FOR BT 


16 197 


1 41 69ft9 K7 


0118 


BE 


BBT 999 


1 6? 04 


46 16 30ft 19 


01190 


CM 


EXECU&1»38»10. TEST FOR WN 


1 6 9 1 6 


14169RQ Ifl 

XtxOA07 l_ O 


01200 


BE 


OUTPUT. » 9 


16228 


46 1 641 6 1 2 

^WXW*TXW Xw 


01210 


CM 


EXECU&1>42»10. TEST FOR BB 


1 A 9 4ft 


14169AQ M9 


01220 


BE 


BBACK » » * 


16252 


4616396 12 


01230 


BH 


BRANCH 99* B»BD»BNR»BNF»BI »BNI »H» 


16 964 

x a O *T 


461 65ftft 11 


09 01 O^FT 


CM 


*&8. 01002.710. RESET HP AND EZ 


1 A 9 7 A 
x A « O 


X'frxOcO'tVJl Ua 


02020EXECU 


NOP 


999 COMMAND STORED HERE 


16288 


4 1 

~ X 


02030 


B 


START.** CYCLE TRACE ROUTINE 


16300 


491 6000 1616 

T 7 1 U U W w XwXO 


02 040 


DORG*- 3. » » 






02050BBT 


TFM 


EXECU&l .26 » 10 SIMULATE BT 


1630ft 
X w 


16 1 69ftQ 1^6 

XOXOA07 NO 


02060 


B 


*&2Q» » » 




4Q163AO 161A 


02070 


D0RG*-3» » » 






02080BBTM 


TFM 


EXECU&l. 16.10. SIMULATE BTM 


1 6 3 9fl 


1A169AQ IA 
X0X0A07 JO 


02090 


SF 


EXECU&2 . . ♦ 


±0 J**U 


lOiVUO O 


02100STBB 


DS 


5>*»» STORE RETURN FOR 






02110 


TF 


STBB. TRAND&ll » »BB COMMAND 


1 6 3 5 9 


9616^51 1 tAQK 


0212 


TF 


TRAND&ll .EXECU&6. . EXECUTE BRANCH 


1 C Q A /. 

16 Jo4 


261609D 16294 


02130 


SM 


EXECU&6.01 » 10. 


1 6 37A 
ID J ID 


191A9Q4 Hi 


02140 


B 


SET. » . 


1 6 "3ft ft 
x O D O 


4Q16976 9A 1 A 


02150 


D0RG*-3> » » 






02160BBACK 


TF 


TRAND&ll .STBB. .SIMULATE BB 


1 A 3 Q A 
X O 3 7 O 


9A1 A0Q5 1 A^cil 


02170 


B 


BEGIN. » . 


1 640ft 

X O *T W O 


4Q 1 6060 15 16 


02180 


D0RG*-3> » > 






02190OUTPUTTDM 


EXECU&9 . 1 . . SET FOR TYPEWRITER 


1 A A 1 A 


1H1A9Q7 1 


02200 


TD 


EXECU&7»TYL0&1» .SET RECORD MARK 


16428 

X U *T t. O 


951 69Q5 1 673ft 


02210 


RCTY 


> > » 


1 6440 
x O f HU 


34 1 9 


02220 


WNTYEXECU. » * 


16459 


3ftl69Rft HI 


02230 


SPTY 


... 


1 6464 


34 Oil 


02240 


B 


SET. , » 


16476 


491 6976 3400 


03010 


DORG*- 3 > > » 






03020TYPE 


SPTY 


... 


16484 


34 Oil 


03030 


WNTYCOUNT-2* > .NUMBER OF TIMES 


16496 


3816596 01 


03040TY1 


RCTY 


... 


16508 


34 01 9 


03050 


WNTYTYLO-4 » » > ADDRESS OF BRANCH 




3R16733 HI 


03060 


SPTY 


... 




34 Oil 


O3O7O 


WNTYPFB-4»>» PF I ELD BRANCH 


1 6 544 


3R1673Q 01 


03080 


TF 


STAD. TYLO » ♦ STORE NEW BRANCH ADDRESS 


16556 


261615516737 


03090 


TFM 


COUNT.001,9. RESET COUNT 


16568 


1616598 001 


C3100 


B 


BEGIN . » . 


16580 


4916060 3216 


03110 


DORG*- 3» » > 






03120BRANCHSF 


EXECU&2 99 .COUNT IN Q FIELD 


16588 


3216290 001Z 


03130 


TF 


PFB.EXECU&6 » . STORE PF I ELD 


16600 


261674316294 


03140 


TFM 


EXECU&6 » BBB ♦ 7 » SET NEW PF I ELD 


16612 


1616294J6632 



16 



03150 


B 


SET ♦ » * 


16624 


4916276 2616 


03160 


DORG*-3» » ♦ 






03170BBB 


TF 


TRAND*ll »PFB» • SIMULATE BRANCH 


16632 


261609516743 


03180 


BNF 


*&14 »PFB » ♦ TEST IF PF I ELD NEGATIVE 


16644 


441665816743 


03190 


DC 


2>-99». OR IF INDIRECT ADDRESS 


16656 


RR2416155167 


032U0 


C 


STAD»TYLO» »TEST IF OLD BRANCH 


16658 


241615516737 


03210 


BNZ 


BBBI»»»IS THE SAME AS NEW ONE 


16670 


4716702 12 


03220 


AM 


COUNT»01»10* STEP COUNT BY ONE 


16682 


1116598 01 


03230 


B 


BEG I N » » * 


16694 


4916060 1416 


04-010 


DORG*-3» * » 






04020BBBI 


CM 


COUNT»001.9 IF BRANCH ONLY 


16702 


1416598 001 


04030 


BZ 


TY1»»» EXECUTED ONE TIME 


16714 


4616508 12 


04040 


B 


TYPE»», DO NOT TYPE COUNT 


16726 


49164840 


04050TYLO 


DS 


5***9 


16738 


ZO OZ 


04060 


DC 


1 »@» * 






04070PFB 


DS 


5*9* 






04080 


DC 


I*®* 9 






04090COUNTDS 


3»BRANCH&10» » 






04100 


DC 


1 »@»BRANCH&11 » » 






04110STAD 


DS 


5 * TRAND&71 » * 






04120 


DENDSTART > ♦ » 







Fast Trace Tape Listing 

The following is a listing of the tape used to load the 
fast trace routine. Loading halts on a 48 operation code; 



if Start is depressed, the typewriter is then ready to 
accept a 5-digit address to start the trace. Release and 
Start are then depressed. 



4 1 000000000036000260030036000000030049000 1 200000Z 
16000Z 

151628700002471603601100151628700000471606001200151628700001 
2616737160951616090J62882500000-00001 1 16090000-1 1 116095000-1 
1 4 1 6090J 630047 1 60840 1 200 L3 1 6289- 0000L2 1 628800000 1 4 1 6289000J 7 
46 1 63280 1 200 1 4 1 6289000K 746 1 63080 1 200 1 4 1 6289000L846 1 64 1 60 1 200 
1416289000M2461639601200461658801 1001416284-10-2410000000000 
491600001616289000K6491634001616289000J63216290-000026163511 
60952616095162941216294000-149162760261609516351491606001516 
297000012516295167383400000001023816288001003400000001014916 
27603400000001 01 381 6596001 003400000001 0238 1 6733001 0034000000 
010I381673900100261615516737161659800-014916060032162900-01Z 
16600Z 

2616743162941616294J6632491627602616095167434416658I6743RR24 

16155167374716702012001116598000-149160600141659800-01461650 

8012004916484-0000Z 

16739Z 

-0000Z 

00000Z 

36 1 609 1 00 1 003 2 1 609 1 0000049 1 6000000004800000000004900000000005 
Load tape with 360000000300. 
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OP 



■C 



Start 



3 



Record HP and 
EZ Indicators 

T n 

( Begin ) 



Reset Trace 



Transmit Command 
to Trace (From 
Execu to Execu 
+ 11) 



Note: 
Execu + 1 = 01 
Execu + 6 = P6 
Execu + 11 = Qll 



CF at Execu + 1 =01 




Yes 



If Branch is Executed 

q bbb 



( BBTM ^ 



P Field 



Q Field 



Execute 
Command 




t\ Yes 



BBT 



3 



Reset HP and 
EZ Indicators 




Output ^ 



B Back 



3 



1 



Branch 



3 



Figure 3. Fast Trace Flow Chart 



(bbtm 


bbt) 






Simulate BT & BTM 


17 — » 16 
27—^26 


P Field 
New Start 


Address of 
Command + 12 
Stored in STBB 


Subtract One 
from P Field 







c 



Set 



J 



Output ^ 
t 

f typeout 
'(1) 38 PPPPP 
t (2) "Space" 
13) Contents of PPPPfi 



Q Start ^ 



( BBB 



Set New 
Starting 
Address 



If P Field 
Negative, 
Stop (9?) 




c 



B Back 







Address Stored 
in STBB Used as 
New Start for 
Trace 







Begin 



c 



Branch 




1 




Store P Field in PFB 
Replace P Field 
with BBB 


< 





Note: If Branch Command is Executed, 
Trace Goes to BBB. 



.Yes 


Add One 
to Count 











Begin ^ 



(Type: 



(1) Address 

(2) Space 

(3) P Field 







Reset Count 
Store Address 
in STAD 



18 
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Three Utility Programs 

Three frequently used programs are: 

Program Location 

1. Load Routine From 402 to 616 

2. Punchout Routine ( compatible From 718 to 842 
with Load Routine) 

3. Modification and Typeout Routine From 618 to 716 

Load Routine 

This routine loads a 21-digit record; the record mark 



is the twenty-first digit. The first 5 digits are the ad- 
dress of the command to be loaded; the next 3 digits 
are an indicator to the load program; the next 12 digits 
are the command or numerical information to be loaded 
into the specified address and higher locations. The 
twenty-first digit is not loaded. If the indicator area 
contains a numerical 000 ( or blanks ) then the command 
is loaded. However, it is possible to execute the com- 
mand instead of loading it. It is also possible to type 
out the record. 



SPS 


LISTING 


ADDRESS 


COMMAND 




L1001 


DORGQ0402* ♦ » 


-00 








L1010LOAD 


RNPTEXAM » » » READ IN RECORD 


-00402 


36 


590 


03 


L1020 


BD 


TYPE,EXAM&5» » BRANCH TO TYPE 


-00414 


43 


542 


595 


L1030 


BD 


EXECUT,EXAM&6» .BRANCH TO EXECUTE 


-00426 


43 


574 


596 


L1040 


SF 


EXAM, » , 


-00438 


32 


590 




L1050 


TF 


TRAN&6 » EXAM&4 » > SET ADDRESS 


-00450 


26 


468 


594 


L1U60TRAN 


TD 


»EXAM&8»7»TRANSMIT DIGIT BY DIGIT 


-00462 


25- 




0598 


L1070 


AM 


TRAN&6»0l»10,STEP TRANSMIT 


-00474 


11 


468 


-1 


L1080 


AM 


TRAN&ll »01 , 10» 


-00486 


11 


473 


-1 


L1090 


CM 


TRAN&ll »EXAM&20»7 »TEST FOR END 


-00498 


14 


473- 


0610 


L1100 


BN 


TRAN ♦ ♦ * LOOP TILL FINISHED 


-00510 


47 


462 


13 


L1110 


TFM 


TRAN&ll »EXAM&8»7» RESET LOAD ROUTINE 


-00522 


16 


473- 


0598 


L1120 


B 


LOAD, » , START OVER 


-00534 


49 


402 


34 


L1121 


DORG*-3> » » 


-00 








L1130TYPE 


RCTY 


» , , 


-00542 


34 




01 2 


L1140 


WNTYEXAM, » » TYPE OUT RECORD 


-00554 


38 


590 


01 


L1150 


B 


LOAD&24* , *CONTINUF ROUTINE 


-00566 


49 


426 


16 


L1151 


DORG*- 3» » ♦ 


-00 








L1160EXECUTTFM 


EXAM&21»49»10, SET BY REMOVING RMK 


-00574 


16 


611 


M9 


L1170 


NOP 


»,»EXAM EQUALS 590 


-00586 


41 






L1180 


NOP 


,,, COMMAND PLACED HERE 


-00598 


41 






L1190 


B 


LOAD, , » START OVER 


-00610 


49 


402 


16 


L1200EXAM 


DS 


2,EXECUT&16, » 


-00 








L1210 


DENDLOAD, , , 


-00 









Indicator 




Code 


Result 


000 


Load information from last 12 digits 


100 


Type out and load 


010 


Execute command (not loaded) 


110 


Type out and execute ( not loaded ) 


EXAMPLES 



000001 10360010000300@ 



00000010480000000000® 
0000001015111110000@ 

00000010491201200000@ 



12012000340000000102@ 
00000010360010000300® 



This loads 340000000102 
into 12012 to 12023 
The command 
360010000300 is executed 
and the record following 
on the tape goes into 
00100. By this method, 
continuous records such 
as tables may be loaded. 



Same as above except 
that this record is typed 
out. 

This halts loading of tape. 
This loads a record mark 
into 11111. 

This executes a branch 
to 12012. 



Modification and Typeout Routine 

To enter numerical data into core storage from the 
typewriter, branch to 00638. The typewriter is then 
ready to receive the 5-digit address of the location 
which is to be changed. After typing in the address, 
press Release and Start. The typewriter then spaces 
twice and is ready to receive the information to be put 
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into that address. After this information has been typed 
in, press Release and Start. The carriage is then re- 
turned and the typewriter is ready for a new address 
to be typed in. 



To type out numerical data beginning at some ad- 
dress, branch to 00618. The same procedure described 
above occurs, except that the data is typed out rather 
than entered. 



SPS 


LI STING 


ADDRESS 


COMMAND 




MT001 


DORG00618* » ♦ 


-00 








MT010TYP 


TFM MT&1»38»10» SET FOR TYPE OUT 


-00618 


16 


699 


L8 


MT020 


B *&20,»» 


-00630 


49 


650 


16 


MT021 


DORG*-3> » » 


-00 








MT030MODI FYTFM MT&l » 36 » 10 ♦ SET FOR TYPE IN MODIFY 


-00638 


16 


699 


L6 


MT040 


RCTY » > » 


-00650 


34 




01 2 


MT050 


RNTYMT&3 » » * SET (TYPE IN) ADDRESS 


-00662 


36 


700 


01 


MT060 


SPTY..* 


-00674 


34 




01 1 


MT070 


SPTY,»» 


-00686 


34 




01 1 


MT080MT 


NOP »00100, TYPE IN OR OUT HERE 


-00698 


41 




01 


MT090 


B MODIFY&12* ♦ »LOOP ROUTINE 


-00710 


49 


650 


16 


MT100 


DENDTYP, , » 











Punchout Routine 

To enter this routine, branch to 00718. The routine first 
punches out the load routine and the other two utility 
programs. The typewriter is then ready to receive the 
address of the record to be punched out. After this 
5-digit address has been entered, press Release and 



Start. The routine punches out the load command for 
the record and then the record itself. The carriage then 
returns and the typewriter is ready to receive a new 
address. To punch out a record without having the 
load program punched out, branch to 00742. 
To load a tape made this way, use 360040200300 

490040200000. 



SPS 


LI STING 


ADDRESS 


COMMAND 




P1001 


DORG00718 » , » 


-00 








P1010PUNCH 


TFM EXAM&2 1 ♦ 49 > 1 » REMOVE RECORD MARK 


-00718 


16 


611 


M9 


P1020 


WNPTLOAD,»» PUNCH OUT LOAD ROUTINE 


-00730 


38 


402 


02 


P1030PUN 


RCTY , , , 


-00742 


34 




01 2 


P1040 


RNTYPI&10, » >TYPE IN ADDRESS OF PUNCH OUT 


-00754 


36 


832 


01 


P1050 


SF PI&10,,, 


-00766 


32 


832 




P1060 


WNPTPI , , ,PUNCH OUT INSTRUCTION FOR LOADING 


-00778 


38 


822 


02 


P1070 


TF *&18,PI&14»» RECORD 


-00790 


26 


808 


836 


P1080 


WNPT»». PUNCH OUT RECORD 


-00802 


38- 




02 


P1090 


B PUN»»»LOOP FOR NEXT RECORD TO PUNCH 


-00814 


49 


742 


0000 


PI 100P I 


DS 2>*-3»» 


-00826 


011 


36 





P1110 


DC 21 >000 000110 36 000000 30 0@»*&17> 


-00838 


0300Z 




P1120 


DENDPUNCH » » » 











NUMERICAL LISTING COLUMNS 1 TO 60 FOR LOAD > MODIFY, AND PUNCH ROUTINES 



36 590 03 43 542 59543 

25- -059811 468 -111 

16 473-059849 402 34 

M941 41 49 

699 L634 01 236 700 01 
01 49 650 16 611 M938 

01 32 832 38 822 02 26 
0000011 36- 00300- 



574 59632 590 26 468 594 

473 -114 473-061047 462 13 

01 238 590 01 49 426 16 611 

402 16 699 L849 650 16 

34 01 134 01 141 

402 02 34 01 236 832 

808 83638- 02 49 742 



-0402 
-0462 
-0522 
-0582 
-0642 
-0702 
-0762 
-0822 
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Check Routine for Flags and Record Marks 

This routine checks to see if there is a flag in the first 
four positions of the Q field of any immediate com- 
mand. If there is no flag, it prints out the address of 
the command. The commands are assumed to be in 
intervals of 12; any operation code less than 19 and 
not equal to 15 is considered to need a flag. 



Linkage to flag routine is 1619518 @@@@@ 

1619763 # # # # # 
4919500 

where @@@@@ is the address of the start command 
and # # # # # is the address of the last command. 

To have the addresses of all the record marks in core 
storage printed out, branch to 19810. 

These two routines occupy locations 19500 to 19931. 



SPS 


LISTING 


ADDRESS 


COMMAND 


F1001 


DORG19500* » » 


- 




F1010START 


WATYCOM»»» NO FLAG AT PRINTOUT 


-19500 


3919785 01 


F1020 


SF 


»»t BEGIN I NG ADDRESS IN P FIELD 


-19512 


32- 


F1030 


TF 


OUTtSTART&18» . SET ADDRESS 


-19524 


■261978219518 


F1Q40 


AM 


START&l8f01»10» STEP ONE 


-19536 


1119518 -1 


F1050 


TF 


F1&6»START&18» » 


-19548 


261959019518 


F1060 


TF 


F2&6»START&18» » OPERATION FIELD 


-19560 


261961419518 


F1070 


AM 


START&18,10»10> STEP TO Qll 


-19572 


1119518 JO 


F1080F1 


CM 


»15»10, TEST FOR TDM COMMAND 


-19584 


14- J5 


F1090 


BZ 


SET»»» STEP TO NEXT COMMAND 


-19596 


4619740 12 


FH00F2 


CM 


»18»l0, TEST FOR NON IMMEDIATE 


-19608 


14- J8 


F1110 


BH 


SET»»» STEP FOR NEXT COMMAND 


-19620 


4619740 11 


F1120 


TF 


F3&11*F1&6»* TRANSFER 01 


-19632 


261966719590 


F1130 


AM 


F3&11 »06»10, » STEP TO Q7 POSITION 


-19644 


1119667 -6 


F1140F3 


BNF 


*&24,»» TEST FOR FLAG 


-19656 


4419680- 


F1150 


B 


SET»»» IF FLAG BRANCH FOR NEXT COMMAND 


-19668 


4919740 


F1160 


AM 


F3&11»01»10» NO FLAG STEP Q POSITION 


-19680 


1119667 -1 


F1170 


C 


START&18»F3&11»» TEST FOR Qll 


-19692 


241951819667 


F1180 


BP 


F3»»»LOOP IF NOT Qll 


-19704 


4619656 11 


F1190 


WNTYOUT-4* » »NO FLAG IN Q7 TO Q10 


-19716 


3819778 01 


F1200 


SPTY 


♦ » » 


-19728 


34 01 1 


F1210SET 


AM 


START&18,01» 10» STEP TO NEXT COMMAND 


-19740 


1119518 -1 


F1220 


CM 


START&18»»» TEST FOR END IN Q FIELD 


-19752 


1419518- 


F1230 


BNP 


START&12* ♦ »C0NTINUE 


-19764 


4719512 11 


F 12.40 


H 


» » » 


-19776 


48- Z5556 


F1250OUT 


DS 


5>*-5»> ADDRESS LOCATION 


-19788 


004653414700 


F1260 


DC 


1 ,@,*-4, 


-19800 


4163000Z 


F1270COM 


DAC 


12»NO FLAG AT @>*-2» 






F1280 


DENDSTART » * ♦ 







R1001 



DORG19810* » * 



R1010RSTARTWATYWRI » , 



RMS AT 



R1020 
R1030 
R1040 
R1050 
R1060 
R1070 
R1080 
R1090 
R1100 



BNR *&48»00000>7 » STEP NO RM 
TF ADD»*-1»» SET ADDRESS OF RM 
WNTYADD-4»»> TYPE OUT ADDRESS 

SPTY,,» 



AM 

CM 
BNZ 
TDM 
H 



RSTART&23»01 » 10, STEP LOCATION BY 
RSTART&23»20000,7 » TEST FOR END 
RSTART&12»»» LOOP 
RSTART&20»0»11» RESET 



1 



» » t 



•19810 3919927 01 

•19822 4519870-0000 

19834 261992419833 

19846 3819920 01 

19858 34 01 1 

19870 1119833 -1 

19882 1419833K0000 

19894 4719822 12 

19906 1519829 

•19918 48 Z5954 



Appendix D 21 



R1110ADD DS 5>*-5>» ADDRESS LOCATION 

R1120 DC l>@»*-4» RECORD MARK 

R1130WRI DAC 8»RMS AT @>*-2» 

R1140 DENDSTART ♦ » ♦ 



-19930 62004163000Z 



NUMERICAL LISTING FOR FLAG AND RECORD MARK CHECK ROUTINE 

3919785 01 32- 2619782195181119 518 -1261959019518 

2619614195181119518 J014 J54619740 12 14- J8 

4619740 11 2619667195901H9667 -64419680- 4919740 
1119667 -12419518196674619656 11 3819778 01 34 01 1 

1119518 -11419518- 4719512 11 48- Z5556004653414700 
4163000Z 3919927 01 4519870-00002619924198333819920 01 34 
01 11119833 -11419833K00004719822 12 1519829 -48 
Z595462004163000- 



J9500 
J9560 
J9620 
J9680 
J9740 
J9800 
J9860 
J9920 
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For Card Input-Output 

The following two cards, loaded at 00000, set all un- 
flagged zeros, occurring after 400, to blank spaces for 
a card dump. 



41 
26 



18 



41 
4715 



3600000 05 
@11 47 -143 



24-040126 



71 



4744 



49 24 



The following card loads a deck that has been 
dumped from core storage by a 350000000400. Replace 
first card in deck with this one. 



36 



80 05 36 160 05 36 240 05 36-0320 05 11 



42 



Q049 



36 



LLLLLL 



The following 12-card dump routine dumps 60 char- 
acters per card with the address contained in columns 
71 to 75. The dumping begins at 00380. A load routine 
including the tables is punched out first, so that the 
resulting deck is ready to be reloaded at any time. Place 



cards in hopper and press Load. The program uses 
00000 to 00091 plus a buffer area at 19840 to 19919. 

This routine starts dumping at the address located 
in the Q field of the first command on the last card. The 
address must be flagged. 
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3619840 05 3819840 04 11 47 -114 44-7 -04700000 12 3600000 05 
3619840 05 26 301991931 198404900000 

00 000000000102030400 020406 08000306 0902100408 0216 10 05 00 15 10200602 18 142 00704Z- 100 
11 28 20 0806 142 2300908 172630000000000 506070 809 00 12 141 6 18 15 18 1 1242720242 8 2236 3Z- 175 
52 35 304540 36 3248 445 5 324946 5 3604846 546275445 3627 180 12 3456789 12 3456789-2 3456Z-2 50 
789-J345678 9-JK456789-JKL5678 9-JKLM6789-JKLMN789-JKLMN089-JKLMNOP9-JKLMNOPQZ-325 



3619840 05 

26 301991425 

3619840 05 16 

2619914 2349 
25 J9840-038011 



J984011 30 
6-00004900000 



60-0380 
18 -111 



23 



41 
-111 



-143 



35 



12 



41 
-143 



24 



1738J9840 04 



36 12 05 Z-000 
3416 35J98404900000 
4900000 
@@@@@@@@@@@@@@@@@@@@ 
36 12 05 
16 18J98404900000 



THE FOLLOWING CARDS ARE THE SAME AS THE ABOVE EXCEPT THAT THEY USE A 
BUFFER LOCATED FROM 00840 TO 00919. 

3600840 05 38 840 04 11 47 -114 44-7 -04700000 12 3600000 05 
36 840 05 26 30 91931 8404900000 

000000 0000001 020 30400020406080003060902 1004080 216 100500 15 10200602 18 14200704Z* 100 
11 28200806 142 2300908 1726 30000000000 5060708 0900 12 141 6 18 15 181 124272024282 2363Z-175 
52 035 3045 40 36 3248 445 5 324946 5 3604846 54627 5445 36 27 180 12 3456789 12 3456789-2 3456Z-250 
78 9-J345678 9-JK456789-JKL56789-JKLM6789-JKLMN789-JKLMN089-JKLMNOP9-JKLMNOPQZ-325 
36 840 05 41 41 36 12 05 Z-000 

26 30 91425 -084011 30 -111 35 -143 24 3416 35-08404900000 

36 840 05 16 6-00004900000 4900000 

@@@@@@@@@@@@@@@@@@@@ 
26 914 2349 60-0380 36 12 05 

25-0840J94601 1 18 -111 23 -143 12 1738J9840 04 16 18-08404900000 



THE FOLLOWING CARDS PLACED ON THE BACK OF A DECK DUMPED BY THE ABOVE 
ROUTINE WILL ALLOW THE USER TO TYPE OUT COMMENTS AND THEN HALT AND PROCEED TO 
THE START OF THE PROGRAM WHEN THE START KEY IS PRESSED. 



11 



30 



-111 



35 



-143 



3719841 05 
ALPHAMERIC 
3719841 05 
ALPHAMERIC 
3719841 05 
ALPHAMERIC 
48 



3919841 01 34 
COMMENT ONE® 

3919841 01 34 
COMMENT TWO® 

3919841 01 34 
COMMENT THREE® 

49START 



24 343600000 05 4900000 
01 23600000 05 4900000 

01 23600000 05 4900000 

01 23600000 05 4900000 
ETC. 

4900000 



■0036 



Note that each comment has a standard card preced- 
ing it; therefore, there is no limit to the number of 
comments to be read into location 19841 and then typed 
out. Location 19841 may be changed by the user. Use 
only the first and last card for no typeout. 
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